1 REM CONVERTED FROM PET TO COMMODORE 64BY RICK BEAM
2 REM MODIFIED SLIGHTLY BY DAVID BRADLEY - OCTOBER 4, 1983
5 PRINTCHR$(142):PRINTCHR$(8)
99 POKE53281,0:POKE53280,0
100 REM BIORHYTHMN 1.5
110 PRINT"[147]";
120 H=100.01:F=.001
130 DIMM%(12),M$(12)
140 FORI=1TO12:READM%(I):NEXT
150 FORI=1TO12:READM$(I):NEXT
160 D$=""
170 R$="[157]"
180 PI=-2*(null)
190 INPUT"INPUT NAME PLEASE";N$
200 INPUT"INPUT BIRTHDAY   MM,DD,YY ";MB,DB,YB
210 TB=0
220 T1=YB/4
230 IFMB<2THEN280
240 FORI=1TOMB-1
250 TB=TB+M%(I)
260 NEXT
270 IF(T1<>INT(T1))AND(MB>2)THENTB=TB+1
280 TB=TB+365*YB+INT(T1)+DB
290 INPUT"INPUT START DATE MM,DD,YY ";MS,DS,YS
300 TS=0
310 T1=YS/4
320 IFMS<2THEN370
330 FORI=1TOMS-1
340 TS=TS+M%(I)
350 NEXT
360 IF(T1<>INT(T1))AND(MS>2)THENTS=TS+1
370 TS=TS+365*YS+INT(T1)+DS
380 TT=TS-TB
390 PS=23*(TT/23-INT(TT/23))
400 ES=28*(TT/28-INT(TT/28))
410 IS=33*(TT/33-INT(TT/33))
420 GOSUB580
430 FORI=0TO38
440 P=8+8*SIN((PS+I)*PI/23)+.5
450 PRINT""LEFT$(R$,I+1);LEFT$(D$,P+2);"[159][215]"
460 NEXT
470 FORI=1TO38
480 E=8+8*SIN((ES+I)*PI/28)+.5
490 PRINT""LEFT$(R$,I+1);LEFT$(D$,E+2);"[158][209]"
500 NEXT
510 FORI=1TO38
520 IT=8+8*SIN((IS+I)*PI/33)+.5
530 PRINT""LEFT$(R$,I+1);LEFT$(D$,IT+2);"*"
540 NEXT
550 GETA$:IFA$=""THEN550
560 PRINT"                                        [145][145][145]"
570 GOTO290
580 PRINT"[147]";
590 PRINT"BIORHYTHMN FOR "N$"[146] BORN ";
600 PRINTM$(MB);DB;"[157],19";MID$(STR$(YB/H+F),3,2)
610 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
620 FORI=1TO8
630 PRINT"[171] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [179]"
640 NEXT
650 PRINT"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
660 FORI=1TO8
670 PRINT"[171] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [179]"
680 NEXT
690 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
700 MD=MS:D1=DS:YD=YS
710 FORI=0TO38
720 IFI/2<>INT(I/2)THENPRINT"";:GOTO790
730 A$=STR$(D1)
740 IFLEN(A$)<3THENB$=RIGHT$(A$,1):GOTO760
750 B$=MID$(A$,2,1)+"[157]"+RIGHT$(A$,1)+"[145]"
760 PRINTB$;
770 C$="[146][157][157][157][157][157][157][157][145]"
780 IF(D1=1)OR(D1=2)THENPRINT"[157]"M$(MD)" 19"MID$(STR$(YD/H+F),3,2);C$;
790 D1=D1+1
800 IFD1<=M%(MD)THEN850
810 IFMD<>2THEN840
820 IFYD/4<>INT(YD/4)THEN840
830 IFD1<30THEN850
840 D1=1:MD=MD+1:IFMD>12THENMD=1:YD=YD+1
850 NEXT
860 PRINT"":PRINT"PHYSICAL=[159][215]  EMOTIONAL=[158][209]  INTELLECTUAL=*";
870 C$="UP     CRIT     DWN"
880 PRINT"[157]";
890 FORI=1TOLEN(C$)
900 PRINTMID$(C$,I,1)"[157]";
910 NEXT
920 RETURN
930 DATA31,28,31,30,31,30,31,31,30,31,30,31
940 DATA"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC"